home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tk.d64 / spscr-bas ins.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  129 lines
  1. 10 PRINT"[147][144]";:POKE53281,12:POKE53280,12:PRINTCHR$(14)
  2. 20 FORI=1TO23
  3. 30 READA$
  4. 40 IFA$="[157]"THENGOSUB80:END
  5. 50 PRINTA$
  6. 60 NEXT
  7. 70 GOSUB80:GOTO20
  8. 80 PRINT"      PRESS A KEY TO CONTINUE[146]";
  9. 90 GETB$:IFB$=""THEN90
  10. 100 PRINT"[147]":RETURN
  11. 10000 DATA"       '[211]PEED[211]CRIPT TO [194][193][211][201][195]'
  12. 10010 [131]"        FOR THE LENOMMODORE 64
  13. 10020 DATA"                 BY
  14. 10030 [131]"          (null)IKE (null)OZAKIEWICZ
  15. 10040 DATA"
  16. 10050 [131]"
  17. 10060 DATA"
  18. 10070 [131]"'(null)PEED(null)CRIPT TO PEEKATN(null)RIGHT$LEN' IS USED TO 
  19. 10080 DATA"GENERATE [194][193][211][201][195] [208][210][201][206][212] OR [196][193][212][193] STATEMENTS
  20. 10090 [131]"WHICH CAN THEN BE USED IN A PEEKATN(null)RIGHT$LEN 
  21. 10100 DATA"PROGRAM. [212]EXT FOR THE [194][193][211][201][195] STATEMENTS 
  22. 10110 [131]"IS GENERATED USING THE WORD PROCESSOR 
  23. 10120 DATA"[211]PEED[211]CRIPT. '[211]PEED[211]CRIPT TO [194][193][211][201][195]' 
  24. 10130 [131]"CONVERTS THE WORD PROCESSING FILE INTO 
  25. 10140 DATA"A FILE OF [194][193][211][201][195] STATEMENTS.
  26. 10150 [131]"
  27. 10160 DATA"[199]ENERATING A ATTRACTIVE SCREEN OF TEXT 
  28. 10170 [131]"IS DIFFICULT TO DO WHEN USING THE 
  29. 10180 DATA"STANDARD [194][193][211][201][195] EDITOR AND EASY TO DO 
  30. 10190 [131]"WHEN USING A WORD PROCESSOR. LEFT$OWEVER 
  31. 10200 DATA"THE FILES PRODUCED FROM MOST WORD 
  32. 10210 [131]"PROCESSORS ARE INCOMPATABLE WITH A 
  33. 10220 DATA"[194][193][211][201][195] PROGRAM. [212]HUS THE [194][193][211][201][195] 
  34. 10230 [131]"PROGRAMMER IS USUALLY DOOMED TO TRIAL 
  35. 10240 DATA"AND ERROR IN HIS ATTEMPT TO PRODUCE 
  36. 10250 [131]"TEXT FOR USE IN A PEEKATN(null)RIGHT$LEN PROGRAM. PEEKUT 
  37. 10260 DATA"WITH '[211]PEED[211]CRIPT TO [194][193][211][201][195]' THE [194][193][211][201][195] 
  38. 10270 [131]"PROGRAMMER CAN GENERATE HIS TEXT WITH A
  39. 10280 DATA"WORD PROCESSOR FOR USE IN A [194][193][211][201][195] 
  40. 10290 [131]"PROGRAM.
  41. 10300 DATA"
  42. 10310 [131]"(null)SE (null)PEED(null)CRIPT, THE POPULAR WORD 
  43. 10320 DATA"PROCESSOR PUBLISHED IN [195][207][205][208][213][212][197]'[211] 
  44. 10330 [131]"CHR$AZETTE TO GENERATE A WORD PROCESSING 
  45. 10340 DATA"FILE. [205]AKE ALL OF THE MODIFICATIONS TO 
  46. 10350 [131]"THE DOCUMENT THAT YOU WANT. (null)OLISH IT 
  47. 10360 DATA"UNTIL IT'S JUST RIGHT. [211]AVE THE WORD 
  48. 10370 [131]"PROCESSING FILE AND EXIT (null)PEED(null)CRIPT. 
  49. 10380 DATA"[212]HEN [204][207][193][196] AND [210][213][206] [211][208][211][195][210]-[194][193][211][201][195]64.
  50. 10390 [131]"
  51. 10400 DATA"[201]N RESPONSE TO '[211]PEED[211]CRIPT TO [194][193][211][201][195]' 
  52. 10410 [131]"PROMPTS, DESIGNATE YOUR WORD PROCESSING
  53. 10420 DATA"FILE AS THE INPUT FILE, AND CHOOSE A 
  54. 10430 [131]"FILE NAME FOR YOUR NEW PEEKATN(null)RIGHT$LEN PROGRAM. 
  55. 10440 DATA"[211]PECIFY WHETHER YOU WANT THE NEW FILE 
  56. 10450 [131]"TO CONTAIN STR$ATN(null)ATN OR (null)(null)RIGHT$(null)(null) STATEMENTS. 
  57. 10460 DATA"
  58. 10470 [131]"'(null)PEED(null)CRIPT TO PEEKATN(null)RIGHT$LEN' WILL READ YOUR 
  59. 10480 DATA"WORD PROCESSING FILE AND GENERATE A 
  60. 10490 [131]"PEEKATN(null)RIGHT$LEN PROGRAM ON DISK.
  61. 10500 DATA"
  62. 10510 [131]"(null)OAD AND RUN THE PEEKATN(null)RIGHT$LEN PROGRAM IF YOU 
  63. 10520 DATA"SPECIFIED A FILE OF [196][193][212][193] STATEMENTS, 
  64. 10530 [131]"AND THE DOCUMENT WILL BE WRITTEN TO THE
  65. 10540 DATA"SCREEN, ONE FULL SCREEN AT A TIME. 
  66. 10550 [131]"(null)RESS ANY KEY, AND THE NEXT SCREEN IS 
  67. 10560 DATA"PRINTED. [217]OU CAN PROVIDE DOCUMENTATION 
  68. 10570 [131]"TO ACCOMPANY YOUR PROGRAMS AND IT IS 
  69. 10580 DATA"ALMOST PAINLESS TO WRITE. [208]LUS, DESPITE
  70. 10590 [131]"THE FACT THAT YOU WROTE THE 
  71. 10600 DATA"DOCUMENTATION WITH [211]PEED[211]CRIPT, IT IS 
  72. 10610 [131]"AVAILABLE TO ANYONE WHO CAN USE THE 
  73. 10620 DATA"PROGRAM YOU WROTE. [193]S YOU MAY HAVE 
  74. 10630 [131]"GUESSED, THESE INSTRUCTIONS WERE 
  75. 10640 DATA"PRODUCED USING '[211]PEED[211]CRIPT TO [194][193][211][201][195]'.
  76. 10650 [131]"
  77. 10660 DATA"[201]F YOU SPECIFY GENERATION OF [208][210][201][206][212] 
  78. 10670 [131]"STATEMENTS, YOU CAN ADD THEM TO A 
  79. 10680 DATA"PROGRAM TO PROVIDE NICELY FORMATTED 
  80. 10690 [131]"TEXT SCREENS. (null)AKING UP SCREENS OF TEXT
  81. 10700 DATA"WITHOUT A WORD PROCESSOR CAN BE A 
  82. 10710 [131]"HEADACHE, AS MOST PROGRAMMERS KNOW.
  83. 10720 DATA"
  84. 10730 [131]"'(null)PEED(null)CRIPT TO PEEKASIC' IS COMPRISED OF 
  85. 10740 DATA"ONE FILE WHICH HAS [194][193][211][201][195] AND MACHINE 
  86. 10750 [131]"LANGUAGE COMPONENTS. (null)HE (null)(null) COMPONENT 
  87. 10760 DATA"RESIDES AT ADDRESS 49152 ($[195]000) ONCE 
  88. 10770 [131]"'(null)PEED(null)CRIPT TO PEEKATN(null)RIGHT$LEN' HAS BEEN (null)(null)(null).
  89. 10780 DATA"
  90. 10790 [131]"(null)O RUN '(null)PEED(null)CRIPT TO PEEKASIC', (null)(null)ATNSTR$ AND
  91. 10800 DATA"[210][213][206] [211][208][211][195][210]-[194][193][211][201][195]64. [201]NSERT THE DISK 
  92. 10810 [131]"CONTAINING YOUR (null)PEEDSCRIPT FILE, AND 
  93. 10820 DATA"ANSWER THE PROMPTS. [217]OUR NEW [194][193][211][201][195] 
  94. 10830 [131]"PROGRAM CAN BE WRITTEN TO ANY DISK, AND
  95. 10840 DATA"MULTIPLE COPIES CAN BE MADE.
  96. 10850 [131]"
  97. 10860 DATA"[217]OU CAN RUN '[211]PEED[211]CRIPT TO [194][193][211][201][195]' AS 
  98. 10870 [131]"MANY TIMES AS YOU DESIRE; THERE IS NO 
  99. 10880 DATA"NEED RELOAD '[211]PEED[211]CRIPT TO [194][193][211][201][195]' ONCE
  100. 10890 [131]"IT IS IN PLACE.
  101. 10900 DATA"","",""
  102. 10910 DATA"[213][211][193][199][197] [206][207][212][197][211]:
  103. 10920 [131]"
  104. 10930 DATA"1. '[211]PEED[211]CRIPT TO [194][193][211][201][195]' IGNORES 
  105. 10940 [131]"(null)PEED(null)CRIPT PRINT FORMAT CHARACTERS. 
  106. 10950 DATA"[212]HEY WILL NOT APPEAR IN YOUR NEW [194][193][211][201][195] 
  107. 10960 [131]"PROGRAM.
  108. 10970 DATA"
  109. 10980 [131]"2. '(null)PEED(null)CRIPT TO PEEKATN(null)RIGHT$LEN' HAS BUILT IN 
  110. 10990 DATA"WORD WRAP. [215]ORDS WILL NOT BE SPLIT 
  111. 11000 [131]"BETWEEN TWO LINES.
  112. 11010 DATA"
  113. 11020 [131]"3. STR$OUBLE QUOTES IN YOUR (null)PEED(null)CRIPT 
  114. 11030 DATA"FILE WILL BE CONVERTED TO SINGLE QUOTES
  115. 11040 [131]"IN THE NEW PEEKATN(null)RIGHT$LEN PROGRAM.
  116. 11050 DATA"
  117. 11060 [131]"4. ATN 21 BLOCK WORD PROCESSING FILE 
  118. 11070 DATA"TAKES ABOUT 2.00 MINUTES TO BE 
  119. 11080 [131]"PROCESSED INTO A 26 BLOCK PEEKATN(null)RIGHT$LEN 
  120. 11090 DATA"PROGRAM.
  121. 11100 [131]"","",""
  122. 11110 [131]"
  123. 11120 DATA"                 [205]IKE [203]OZAKIEWICZ
  124. 11130 [131]"                 175 (null)HARON STR$R.
  125. 11140 DATA"                 [210]OCHESTER, [206][217]
  126. 11150 [131]"                 14626    ((null)(null)ATN)
  127. 11160 DATA"
  128. 11170 [131]"CMD
  129.